1 Data Preparation

The data set used in the 3D is a sub table of the original data matrix that 500 roows and 500 columns.

game = read.csv("https://pengdsci.github.io/FisherGame/GameData.csv")
gameMatrix = matrix(0, nrow=500, ncol=500)
for (i in 1:500){
  for (j in 1:500){
    gameMatrix[i,j] = game[i,j]
  }
}

2 Original Response Surface

The following rotatable 3D surface plot show some clear patterns.

fig.trans <- plot_ly(z = ~gameMatrix)
fig.trans <- fig.trans %>% add_surface(opacity = 0.6)
fig.trans

3 Transformed Response Surface

The following 3D surface plot is based the log-transformed data.

fig.trans <- plot_ly(z = ~log(gameMatrix+1))
fig.trans <- fig.trans %>% add_surface(opacity = 0.6)
fig.trans
LS0tDQp0aXRsZTogIlNvbWUgUm90YXRhYmxlIDNEIFN1cmZhY2Ugb2YgR2FtZSBEYXRhIg0KYXV0aG9yOiAiICINCmRhdGU6ICIiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6IA0KICAgIHRvYzogeWVzDQogICAgdG9jX2RlcHRoOiA0DQogICAgdG9jX2Zsb2F0OiB5ZXMNCiAgICBmaWdfd2lkdGg6IDYNCiAgICBudW1iZXJfc2VjdGlvbnM6IHllcw0KICAgIHRvY19jb2xsYXBzZWQ6IHllcw0KICAgIGNvZGVfZm9sZGluZzogaGlkZQ0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIHNtb290aF9zY3JvbGw6IHRydWUNCiAgICB0aGVtZTogcmVhZGFibGUNCiAgICBmaWdfaGVpZ2h0OiA0DQogIGVkaXRvcl9vcHRpb25zOg0KICBjaHVua19vdXRwdXRfdHlwZTogaW5saW5lDQotLS0NCjxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+DQpoMS50aXRsZSB7DQogIGZvbnQtc2l6ZTogMjBweDsNCiAgY29sb3I6IERhcmtSZWQ7DQogIHRleHQtYWxpZ246IGNlbnRlcjsNCn0NCmg0LmF1dGhvciB7IC8qIEhlYWRlciA0IC0gYW5kIHRoZSBhdXRob3IgYW5kIGRhdGEgaGVhZGVycyB1c2UgdGhpcyB0b28gICovDQogICAgZm9udC1zaXplOiAxOHB4Ow0KICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsNCiAgY29sb3I6IERhcmtSZWQ7DQogIHRleHQtYWxpZ246IGNlbnRlcjsNCn0NCmg0LmRhdGUgeyAvKiBIZWFkZXIgNCAtIGFuZCB0aGUgYXV0aG9yIGFuZCBkYXRhIGhlYWRlcnMgdXNlIHRoaXMgdG9vICAqLw0KICBmb250LXNpemU6IDE4cHg7DQogIGZvbnQtZmFtaWx5OiAiVGltZXMgTmV3IFJvbWFuIiwgVGltZXMsIHNlcmlmOw0KICBjb2xvcjogRGFya0JsdWU7DQogIHRleHQtYWxpZ246IGNlbnRlcjsNCn0NCmgxIHsgLyogSGVhZGVyIDMgLSBhbmQgdGhlIGF1dGhvciBhbmQgZGF0YSBoZWFkZXJzIHVzZSB0aGlzIHRvbyAgKi8NCiAgICBmb250LXNpemU6IDIycHg7DQogICAgZm9udC1mYW1pbHk6ICJUaW1lcyBOZXcgUm9tYW4iLCBUaW1lcywgc2VyaWY7DQogICAgY29sb3I6IGRhcmtyZWQ7DQogICAgdGV4dC1hbGlnbjogY2VudGVyOw0KfQ0KaDIgeyAvKiBIZWFkZXIgMyAtIGFuZCB0aGUgYXV0aG9yIGFuZCBkYXRhIGhlYWRlcnMgdXNlIHRoaXMgdG9vICAqLw0KICAgIGZvbnQtc2l6ZTogMThweDsNCiAgICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsNCiAgICBjb2xvcjogbmF2eTsNCiAgICB0ZXh0LWFsaWduOiBsZWZ0Ow0KfQ0KDQpoMyB7IC8qIEhlYWRlciAzIC0gYW5kIHRoZSBhdXRob3IgYW5kIGRhdGEgaGVhZGVycyB1c2UgdGhpcyB0b28gICovDQogICAgZm9udC1zaXplOiAxNXB4Ow0KICAgIGZvbnQtZmFtaWx5OiAiVGltZXMgTmV3IFJvbWFuIiwgVGltZXMsIHNlcmlmOw0KICAgIGNvbG9yOiBuYXZ5Ow0KICAgIHRleHQtYWxpZ246IGxlZnQ7DQp9DQoNCmg0IHsgLyogSGVhZGVyIDQgLSBhbmQgdGhlIGF1dGhvciBhbmQgZGF0YSBoZWFkZXJzIHVzZSB0aGlzIHRvbyAgKi8NCiAgICBmb250LXNpemU6IDE4cHg7DQogICAgZm9udC1mYW1pbHk6ICJUaW1lcyBOZXcgUm9tYW4iLCBUaW1lcywgc2VyaWY7DQogICAgY29sb3I6IGRhcmtyZWQ7DQogICAgdGV4dC1hbGlnbjogbGVmdDsNCn0NCjwvc3R5bGU+DQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0KIyBjb2RlIGNodW5rIHNwZWNpZmllcyB3aGV0aGVyIHRoZSBSIGNvZGUsIHdhcm5pbmdzLCBhbmQgb3V0cHV0IA0KIyB3aWxsIGJlIGluY2x1ZGVkIGluIHRoZSBvdXRwdXQgZmlsZXMuDQppZiAoIXJlcXVpcmUoIklTd1IiKSkgew0KICAgaW5zdGFsbC5wYWNrYWdlcygiSVN3UiIpDQogICBsaWJyYXJ5KElTd1IpDQp9DQppZiAoIXJlcXVpcmUoIk1BU1MiKSkgew0KICAgaW5zdGFsbC5wYWNrYWdlcygiTUFTUyIpDQogICBsaWJyYXJ5KE1BU1MpDQp9DQppZiAoIXJlcXVpcmUoImtuaXRyIikpIHsNCiAgIGluc3RhbGwucGFja2FnZXMoImtuaXRyIikNCiAgIGxpYnJhcnkoa25pdHIpDQp9DQppZiAoIXJlcXVpcmUoInBsb3RseSIpKSB7DQogICBpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQ0KICAgbGlicmFyeShwbG90bHkpDQp9DQppZiAoIXJlcXVpcmUoInR1ZnRlIikpIHsNCiAgIGluc3RhbGwucGFja2FnZXMoInR1ZnRlIikNCiAgIGxpYnJhcnkodHVmdGUpDQp9DQppZiAoIXJlcXVpcmUoInB3ciIpKSB7DQogICBpbnN0YWxsLnBhY2thZ2VzKCJwd3IiKQ0KICAgbGlicmFyeShwd3IpDQp9DQoNCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSwgICAgICAgDQogICAgICAgICAgICAgICAgICAgICAgd2FybmluZ3MgPSBGQUxTRSwgICANCiAgICAgICAgICAgICAgICAgICAgICByZXN1bHRzID0gVFJVRSwgICANCiAgICAgICAgICAgICAgICAgICAgICBtZXNzYWdlID0gRkFMU0UsDQogICAgICAgICAgICAgICAgICAgICAgY29tbWVudCA9IE5BKQ0KYGBgDQoNClwNCg0KDQojIERhdGEgUHJlcGFyYXRpb24NCg0KVGhlIGRhdGEgc2V0IHVzZWQgaW4gdGhlIDNEIGlzIGEgc3ViIHRhYmxlIG9mIHRoZSBvcmlnaW5hbCBkYXRhIG1hdHJpeCB0aGF0IDUwMCByb293cyBhbmQgNTAwIGNvbHVtbnMuDQoNCg0KYGBge3J9DQpnYW1lID0gcmVhZC5jc3YoImh0dHBzOi8vcGVuZ2RzY2kuZ2l0aHViLmlvL0Zpc2hlckdhbWUvR2FtZURhdGEuY3N2IikNCmdhbWVNYXRyaXggPSBtYXRyaXgoMCwgbnJvdz01MDAsIG5jb2w9NTAwKQ0KZm9yIChpIGluIDE6NTAwKXsNCiAgZm9yIChqIGluIDE6NTAwKXsNCiAgICBnYW1lTWF0cml4W2ksal0gPSBnYW1lW2ksal0NCiAgfQ0KfQ0KYGBgDQoNCg0KIyBPcmlnaW5hbCBSZXNwb25zZSBTdXJmYWNlDQoNClRoZSBmb2xsb3dpbmcgcm90YXRhYmxlIDNEIHN1cmZhY2UgcGxvdCBzaG93IHNvbWUgY2xlYXIgcGF0dGVybnMuIA0KDQpgYGB7cn0NCmZpZy50cmFucyA8LSBwbG90X2x5KHogPSB+Z2FtZU1hdHJpeCkNCmZpZy50cmFucyA8LSBmaWcudHJhbnMgJT4lIGFkZF9zdXJmYWNlKG9wYWNpdHkgPSAwLjYpDQpmaWcudHJhbnMNCmBgYA0KDQojIFRyYW5zZm9ybWVkIFJlc3BvbnNlIFN1cmZhY2UNCg0KVGhlIGZvbGxvd2luZyAzRCBzdXJmYWNlIHBsb3QgaXMgYmFzZWQgdGhlIGxvZy10cmFuc2Zvcm1lZCBkYXRhLiANCg0KYGBge3J9DQpmaWcudHJhbnMgPC0gcGxvdF9seSh6ID0gfmxvZyhnYW1lTWF0cml4KzEpKQ0KZmlnLnRyYW5zIDwtIGZpZy50cmFucyAlPiUgYWRkX3N1cmZhY2Uob3BhY2l0eSA9IDAuNikNCmZpZy50cmFucw0KYGBgDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0K